home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Extended Sample / UnitObjectEntityCustomer.dfm < prev    next >
Encoding:
Text File  |  2000-05-29  |  434 b   |  20 lines
  1. inherited ObjectEntityCustomer: TObjectEntityCustomer
  2.   Left = 285
  3.   Top = 161
  4.   Height = 479
  5.   object QueryCustomer: TQuery
  6.     DatabaseName = 'DBDEMOS'
  7.     RequestLive = True
  8.     SQL.Strings = (
  9.       'select * from customer.db where CustNo = :CustNo')
  10.     Left = 76
  11.     Top = 28
  12.     ParamData = <
  13.       item
  14.         DataType = ftInteger
  15.         Name = 'CustNo'
  16.         ParamType = ptUnknown
  17.       end>
  18.   end
  19. end
  20.